System
System
Fun with AVI
\D|D|
--Copyright 
 1992
Asymetrix Corporation
gives you permission 
e, revise 
reuse the 
--individual 
scripts 
your own 
--applications.
You may 
x, however, 
Sentire 
--substantial part 
redistribution 
jproduct.
retains 
copyright on 
original elements 
 . Include 
notice "Portions 
 are 
they 
--contain 
copied 
,: 		JRG
Q:	01/21/93
	linkDLL "user"
		-- 
function 
used 
		INT MoveWindow(WORD,
Stbkwin.dll"
		-- 
Rreturns coordinates 
screen units
		-- 
takes 
%a parameter
		-- 
Popup 
Overlapped
		-- windows
		STRING screenFromPage(
		-- 
client 
		-- 
		-- 
Child 
pclientFromPage(
,INT,
enterBook
enterBook
MoveWindow
tbkwin.dll
screenFromPage
clientFromPage
winStyle
Popup
fileName
C:\TOOLBOOK\wndsurf1.avi
Play AVI
AVIrect
the aVI 
still playing
tbkMCI("status AVIfile mode","")
"","")
=close 
6","")
buttonUp
buttonUp
status AVIfile mode
tbkMCI
playing
stop AVIfile
tbkMCI
close AVIfile
tbkMCI
Stop AVI
winStyle 
buttonUp
buttonUp
winStyle
Popup
Popup
Overlapped
Overlapped
Child
Child
ButtonUp
4fileName
OpenDlg("\", "*.avi", "Choose 
,.", "
File")
ButtonUp
ButtonUp
*.avi
Choose an AVI file.
Choose AVI File
OpenDlg
fileName
choose
Choose AVI
-- The DLLs used 
handler are linked/unlinked 
4fileName
 has been 
		-- 
xload 
ButtonUp 
B"Choose"
tbkMCI("close AVIfile","")
style 
radio buttons. 
a user property 
called winStyle.
	-- Open 
w="child"
tbkMCIchk("
" && filename && "alias 
" && 
			&& "
" && 
,"",1,1)
" && 
" && 
,"",1,1)
hWin 
}status 
","",1,1)
	-- Determine 
coordinates 
wRect 
clientFromPage(
			sysMagnification, 
"AVIrect" 
screenFromPage(
	--Break 
x,y,width,height
nWidth 
nHeight 
MoveWindow(
,x,y,
 state 
","")
play 
default
message 
sent 
 stops playing 
-- closes 
tbkMMNotify 
,op,dev
le","")
buttonUp
tbkMMNotify
buttonUp
ButtonUp
Choose
close AVIfile
tbkMCI
winStyle
child
filename
alias AVIfile style
parent
tbkMCIchk
filename
alias AVIfile style
tbkMCIchk
status AVIfile window handle
tbkMCIchk
child
AVIrect
clientFromPage
AVIrect
screenFromPage
MoveWindow
window AVIfile state show
tbkMCI
play AVIfile
tbkMCI
default
nHeight
nWidth
wRect
style
fileName
tbkMMNotify
AVIfile
close AVIfile
tbkMCI
o8LL/f
LLLLQf
)?CO8